﻿Public Class IsyeriFaaliyetAraKayit : Inherits Process

    Dim isyerino, tarih1, tarih2 As Input

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "İşyeri Faaliyete Ara Verme Kaydı"
                InitialHelp = "İşyeri bilgisini girin."
                isyerino = AddField("@Isyeri", "nl", "", "İşyeri bilgisini girmelisiniz.")
                StartBody()
                tarih1 = AddDate("Tarih1", "Faaliyete ara verdiği tarih", "nl")
                tarih2 = AddDate("Tarih2", "Faaliyete başladığı tarih", "nl")
			Case EventType.ValidateForm
				Help = "Faaliyete ara verme ve yeniden başlama tarihlerini girin."
				Buttons.Show("Save.Reset")
				e.Result = True
            Case EventType.Save
                If Check("Tarih1", tarih2 <= tarih1, "Faaliyete ara verme tarihi, yeniden başlama tarihinden önce olmalı.") Then Exit Sub
                If Not Confirm("Bu işyerinde ilgili tarihte çalışanlar için de çıkış/giriş kayıtları yaratılacaktır. Devam etmek istediğinizden emin misiniz?") Then Exit Sub
                Try
                    Isyeri.FaaliyetAraVerme(Local, isyerino.Get, tarih1.Get, tarih2.Get, User.Kaykul)
                    Info("Faaliyete ara verme kaydı yaratılmıştır.")
					Reset()
                Catch ex As Exception
                    Rollback(ex.Message)
                End Try
        End Select
    End Sub

End Class
